;****************************** 24-Sep-78 02:06:15 &PASS1 ;

   ( MAPC ' (
   ACK           ; 2SUBR ;
  
   ) (LAMBDA (L) (PUT L NIL 'ENTRY)) )
  

  ;****************************** 24-Sep-78 02:06:15 &PASS2 ;

     ; 3 ACK-------------------------------------------------------

  (DE ACK (X Y) 
      (COND
         ((ZEROP X) (ADD1 Y))
         ((ZEROP Y) (ACK (SUB1 X) 1))
         (T (ACK (SUB1 X) (ACK X (SUB1 Y))))))
  
   FUNCTION LENGTH = 38
   #LABEL = ((G101 POPJ P))
   #LAP LENGTH = 33
  ;
   ( LAP '(
  ;;;;;;
         (ENTRY ACK SUBR 2)
         (JSP L :SBIND2)
         (XWD 'ACK '(X Y))
         (CAIE 1 '0)
         (JRST 0 G102)
         (GETVAL 1 Y)
         (MOVE 5 :MEM 1)
         (ADDI 5 1)
         (JRST 0 :CRANUM)
   G102
         (GETVAL 1 Y)
         (CAIE 1 '0)
         (JRST 0 G103)
         (GETVAL 1 X)
         (MOVE 5 :MEM 1)
         (SUBI 5 1)
         (JSP L :$CRANB)
         (MOVEI 2 '1)
         (JRST 0 ACK)
   G103
         (GETVAL 1 X)
         (MOVE 5 :MEM 1)
         (SUBI 5 1)
         (JSP L :$CRANP)
         (GETVAL 1 X)
         (PUSH P 1)
         (GETVAL 1 Y)
         (MOVE 5 :MEM 1)
         (SUBI 5 1)
         (JSP L :$CRANB)
         (MOVEI 2 0 1)
         (POP P 1)
         (PUSHJ P ACK)
         (MOVEI 2 0 1)
         (POP P 1)
         (JRST 0 ACK)
  
   ) )
  
  ;****************************** 24-Sep-78 02:06:16 COMPILEND ;